#!/usr/bin/env tclsh8.5
# $Id: test.tcl 7557b5d4d82b 2012/12/02 09:07:16 pgurumur $
# Copyright (c) 2009 Prabhu Gurumurthy  <pgurumur@gmail.com>
# 
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#
# version "$Revision: 7557b5d4d82b $"
# author "$Author: pgurumur $"
#
set object "./svn[info sharedlibextension]"
if {[file exists $object] == 1} {
   load $object
} else {
   error "cannot object shared object: $object"
}

# set url [string trim "http://code.djangoproject.com/svn/django/trunk/" /]
set url [string trim "http://django-rest-interface.googlecode.com/svn/trunk/" /]
# set retval [svn help]
# set retval [svn update ]
# set retval [svn list $url]
# puts $retval

# set url [ string trim "http://cvs2svn.tigris.org/svn/cvs2svn/trunk" /]
# set url [ string trim "http://svn-web.googlecode.com/svn/trunk/" / ]
# set url [ string trim "http://viewvc.tigris.org/svn/viewvc/trunk/" /]
set url [ string trim "https://qore.svn.sourceforge.net/svnroot/qore/qore/trunk/" /]
# svn client "guest" 
# svn client
# set retval [svn list $url]
# set directory "/data/python3.x"
# set retval [svn info $directory]
# puts $retval
# set retval [svn checkout $url "qore"]
# puts "Checked out revision $retval"
# set retval [svn status "django-restful"]
# puts $retval
# svn help
# http://svn-web.googlecode.com/svn/trunk/ svn-web
set retval [svn version]
puts $retval
svn help
